perm filename GALLEY.MF[FIG,DEK]4 blob
sn#783945 filedate 1985-01-29 generic text, type C, neo UTF8
COMMENT ā VALID 00010 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 % This page should match page 2 of MANUAL.MF,
C00004 00003 "Figure 4j" % T from IOnian font
C00006 00004
C00010 00005
C00012 00006 end
C00015 00007
C00017 00008
C00019 00009
C00021 00010
C00022 ENDMK
Cā;
% This page should match page 2 of MANUAL.MF,
% because I'm testing stuff to add to that file
def clear_all = clearit; clearxy; pickup standardpen;
proofrulethickness 0;
enddef;
def heavy_dot expr z =
makelabel.top("",z-(1,0));
makelabel.top("",z+(1,0));
makelabel.top("",z-(0,1));
makelabel.top("",z+(0,1));
makelabel.top("",z+(1,1)/sqrt2);
makelabel.top("",z+(1,-1)/sqrt2);
makelabel.top("",z-(1,1)/sqrt2);
makelabel.top("",z-(1,-1)/sqrt2);
enddef;
def font_setup=
define_pixels(u,tiny,axis,hheight,border);
define_blacker_pixels(hair,thin,thick,rulethickness);
pickup if tiny<.5: nullpen else: pencircle scaled tiny fi;
tinypen:=savepen;
currenttransform:=identity slanted slant yscaled aspect_ratio;
enddef;
mode=proof; mode_setup;
standardpen=savepen;
"Figure 4j"; % T from IOnian font
clear_all;
em#:=10pt#; cap#:=7pt#;
bar#:=.8pt#;
stem#:=.9pt#;
thin#:=.8pt#;
thick#:=1pt#;
define_pixels(em,cap);
define_blacker_pixels(thin,thick,bar,stem);
beginchar(24,0.6em#,cap#,0); % "The letter T"; \IOT=24
penpos1(bar,70);
penpos2(bar,35);
penpos4(bar,35);
penpos5(bar,55);
x1=0; y1r=h; y2r=y4r=.2[y1r,y1]; y5l=.3[y1l,y1];
x2l=1/3[x1l,x5l]; x4l=2/3[x1l,x5l]; x5=w;
penpos6(stem,20); pentaper6(.1,0);
penpos3(x6r-x6l,0);
penpos7(stem,10);
%y3=y2; x3=.5[x1l,x5l];
y3=y2; x3=.5w;
x6r=x3r; y6=2/3h;
x7=x6; y7=0;
penstroke z1e{curl infinity}..z2e..z4e..{curl infinity}z5e;
penstroke z3e..z6e{down}..z7e;
labels.top(1r,2l,2,2r,4l,4,4r,6);
labels.lft(1,1l,6l);
labels.rt(5,5r,5l,6r);
labels.bot(3l,3,3r,7,7r,7l);
endchar;
end